vb编程代码大全（常用vb的编程代码）

先在程序中加一个Label,名字应该符合VB程序控件命名规范: lbl《名称》 再加一个Timer控件,名字也要符合命名规范 在窗体代码对话框中打入 Private Sub Form_Load() On Error Resume Next Me.Font = “Arial“ Me.FontSize = 24 Me.FontBold = True 《Timer控件名》.Enabled = True 《Timer控件名》.Interval = 1000 End Sub ’下列函数只能二选其一 ’是时间显示 Private Sub 《Timer控件名》_Timer() On Error Resume Next 《Label控件名》.Caption = Time End Sub ’是日期与时间显示 Private Sub 《Timer控件名》_Timer() On Error Resume Next 《Label控件名》.Caption = Now End Sub

将你的textbox控件定义成数组控件，然后运行以下代码：PrivateSubcommand1_click()这个是保存Text1的内容到本身目录下.OpenApp.Path\123.txtForAppendAs#1Print#1,Text1(0).TextPrint#1,Text1(1).TextPrint#1,Text1(2).TextClose#1EndSubPrivateSubForm_Load()DimiAsIntegerOpenApp.Path\123.txtForInputAs#1DoWhileNotEOF(1)LineInput#1,ssText1(i).Text=ssi=i+1LoopClose#1EndSub

控件：image,picture,timer代码：Dim x As IntegerDim y As IntegerPrivate Sub Form_Load()x = 100y = 100Timer1.Interval = 100End SubPrivate Sub Timer1_Timer()If img.Top 》= pic.Height - img.Height Theny = -100End IfIf img.Top 《= 0 Theny = 100End IfIf img.Left 》= pic.Width - img.Width Thenx = -100End IfIf img.Left 《= 0 Thenx = 100End Ifimg.Top = img.Top + yimg.Left = img.Left + xEnd Sub以上代码实现的是图片框中的一个小球做的规律的运动，当小球碰到图片框边缘时便反弹继续运动

在窗体上放置两个CommandButton，分别为Command1和Command2，代码如下：

Dim Die As Long, Zhi As LongPrivate Sub Command1_Click()    Dim x As Long, y As Long    x = Val(InputBox(“请输入底数：“, “输入“, “0“))    y = Val(InputBox(“请输入指数：“, “输入“, “1“))    If x 》 0 And y 》 0 Then        Die = x        Zhi = y        Command2.Enabled = True    Else        Command2.Enabled = False    End IfEnd SubPrivate Sub Command2_Click()    MsgBox CStr(Die) & “ 的 “ & CStr(Zhi) & “ 次幂的结果为：“ & CStr(Die ^ Zhi), vbInformation, “计算结果“End SubPrivate Sub Form_Load()    Command1.Caption = “输入(&I)“    Command2.Caption = “计算(&C)“End Sub

1、根据三角形两边之和大于第三边，代码如下： Private Sub Form_Click() Dim A, B, C As Single Dim S As Single Dim P As Single Z1: A = Val(InputBox(“请输入边长A的值“, “输入“)) B = Val(InputBox(“请输入边长B的值“, “输入“)) C = Val(InputBox(“请输入边长C的值“, “输入“)) If ((A + B) 》 C) And ((A + C) 》 B) And ((B + C) 》 A) Then P = (A + B + C) / 2 S = Sqr(P * (P - A) * (P - B) * (P - C)) Print “三角形边长“ & A & “,“ & B; “,“ & C & “ 面积S=“ & S Else MsgBox “输入的三边不能构成三角形“, vbOKOnly, “提示“ GoTo Z1 End If End Sub 2、100－999的水仙花数 Private Sub Form_Click() Dim I As Integer Dim A, B, C As Integer Form1.Cls Print “100－999之间的水仙花数“ & Chr(13) For I = 100 To 999 A = I \ 100 B = (I Mod 100) \ 10 C = I Mod 10 If I = A ^ 3 + B ^ 3 + C ^ 3 Then Print I; End If Next I End Sub 3、求CosX的问题没看明白，请写清楚些。

我自己整理了一些，不多，你看看吧。如果要有列子的再找我。 （一）类型转换类函数1. CType(X)[格式]：P=CBool(X) ’ 将X转换为“布尔”（Boolean）类型P=CByte(X) ’ 将X转换为“字节”（Byte）类型P=CCur(X) ’ 将X转换为“金额”（Currency）类型P=CDate(X) ’ 将X转换为“日期”（Date）类型P=CDbl(X) ’ 将X转换为“双精度”（Double）类型P=CInt(X) ’ 将X转换为“整型”（Integer）类型P=CLng(X) ’ 将X转换为“长整型”（Long）类型P=CSng(X) ’ 将X转换为“单精度”（Single）类型P=CStr(X) ’ 将X转换为“字符串”（String）类型P=Cvar(X) ’ 将X转换为“变体型”（Variant）类型P=CVErr(X) ’ 将X转换为Error值[ 范例 ]：(1). CStr(13)+CStr(23)’ 数值转换成字符串后，用“+“号连接， 结果：1323(2). CInt(“12“)+12’ 字符串转换成整型后与12相加， 结果：24(3). P=CInt(True)’ 输出结果为-1 ’ 布尔值与数值的转换时要注意，布尔值只有True和False，其中True在内存中为-1,False存为0 (4). CBool(-0.001)’ 输出结果为True ’ 将数值转换为布尔型时，等于0的数值将得到False，不等于0的数值得到True.2. Int(X),Fix(X)：取X的整数值[格式]：P=Int(X) ’ 取《=X的最大整数值P=Fix(X) ’ 取X的整数部分，直接去掉小数[范例]：(1) Int(-54.6) ’ 结果为-55，取《=-54.6的最大整数(2) Fix(54.6) ’ 结果为54，取整数并直接去掉小数（二）常用数学函数[格式]：1. Abs(N) 取绝对值例：Abs(-3.5) 结果：3.52. Cos(N) 余弦函数例：Cos(0) 结果：13. Exp(N) e为底的指数函数例：Exp(3) 结果：20.0684. Log(N) 以e为底的自然对数例：Log(10) 结果：2.35. Rnd[(N)] 产生随机数例：Rnd 结果：0--1之间的数6. Sin(N) 正弦函数例：Sin(0) 结果：07. Sgn(N) 符号函数’ 说明：取正负号。Y=Sgn(X) 既 X》0 则Y=1；X=0 则Y=0；X《0 则Y= -18. Sqr(N) 平方根例：Sqr(9) 结果：39. Tan(N) 正切函数例：Tan(0) 结果：010.Atn(N) 反切函数例：Atn(0) 结果：0[注意]：在三角函数中，以弧度表示。(一)字符串类函数：1. ASC(X)，Chr(X)：转换字符字符码[格式]：P=Asc(X) 返回字符串X的第一个字符的字符码P=Chr(X) 返回字符码等于X的字符[范例]：(1)P=Chr(65)‘ 输出字符A,因为A的ASCII码等于65(2)P=Asc(“A”)‘ 输出652. Len(X)： 计算字符串X的长度[格式]：P=Len(X)[说明]：空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算一个字符。[范例]：(1) 令X=”” (空字符串)Len(X) 输出结果为0(2) 令X=”abcd” Len(X) 输出结果为4(3) 令X=”VB教程”Len(X) 输出结果为43. Mid(X)函数：读取字符串X中间的字符[格式]：P=Mid(X,n)由X的第n个字符读起，读取后面的所有字符。P=Mid(X,n,m)由X的第n个字符读起，读取后面的m个字符。[范例]：(1) X=”abcdefg”P=Mid(X,5)结果为：P=”efg”(2) X=”abcdefg”P=Mid(X,2,4)结果为P=”bcde”4. Replace: 将字符串中的某些特定字符串替换为其他字符串[格式]：P=Replace(X,S,R)[说明]：将字符串X中的字符串S替换为字符串R，然后返回。[范例]：X=”VB is very good”P=Replace(X,good,nice)输出结果为：P=”VB is very nice”5. StrReverse：反转字符串[格式]：P=StrReverse(X)[说明]：返回X参数反转后的字符串[范例]：（1）X=”abc”P=StrReverse(X)输出结果：P=”cba”6. Ucase(X)，Lcase(X)：转换英文字母的大小写[格式]：P=Lcase(X)‘ 将X字符串中的大写字母转换成小写P=Ucase(X)‘ 将X字符串中的小写字母转换成大写[说明]：除了英文字母外，其他字符或中文字都不会受到影响。[范例]：（1） 令 X=”VB and VC”则Lcase(X)的结果为”vb and vc”，Ucase(X)的结果为”VB AND VC”7. InStr函数：寻找字符串[格式]：P=InStr(X,Y)从X第一个字符起找出Y出现的位置P=InStr(n,X,Y)从X第n个字符起找出Y出现的位置[说明]：（1） 若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。（2） InStr(X,Y)相当于InStr(1,X,Y)。（3） 若字符串长度，或X为空字符串，或在X中找不到Y，则都返回0。（4） 若Y为空字符串，则返回0。日期时间类函数：1. Year(X)，Month(X)，Day(X)：取出年，月，日[格式]：P=Year(X)取出X“年”部分的数值P=Month(X)取出X“月”部分的数值P=Day(X)取出X“日”部分的数值[说明]：Year返回的是公元年，若X里只有时间，没有日期，则日期视为#1899/12/30#2. Hour，Minute，Second函数：取出时，分，或秒[格式]：P=Hour(X)取出X“时”部分的数值P=Minute(X)取出X“分”部分的数值P=Second(X)取出X“秒”部分的数值[说明]：Hour的返回值是0---23之间[范例]：X=10:34:23P=Hour(X)Q=Minute(X)R=Second(X)则输出结果：P=10，Q=34，R=233. DateSerial函数：合并年，月，日成为日期[格式]：DateSerial(Y,M,D)其中Y是年份，M为月份，D为日期[说明]：（1） M值若大于12，则月份从12月起向后推算M-12个月；若小于1，则月份从1月起向后推算1-M个月。（2） 若日期D大于当月的日数，则日期从当月的日数起，向后推算D-当月日数；若小于1，则日期从1日起向前推算1-D日。[范例]：P=DateSerial(2000,02,02)则结果为P=2000/02/024．TimeSerial函数：合并时，分，秒成为时间[格式]：P=TimeSerial(H,M,S)其中H为小时数，M为分钟数，S为秒数[说明]：推算原理同上面的DateSerial[范例]：P=TimeSerial(6,32,45)结果为：P=6:32:455．Date,Time,Now函数：读取系统的日期时间[格式]：P=Date()P=Time()P=Now()[说明]：这三个函数都无参数[范例]：若当前时间为2003年8月29日晚上19点26分45秒，则P=Now()结果为：P=2003-08-29 19:26:456．MonthName：返回月份名称[格式]：P=MonthName(X)[说明]：X参数可传入1---12，则返回值为“一月”、“二月”……，但是在英文Windows环境下，返回的是”January”,”February”……[范例]：P=MonthName(1)则P=“一月”7．WeekdayName：返回星期名称[格式]：P=WeekdayName(X)[说明]：X参数可传入1—7，则返回值为“星期日”，“星期一”……，但是在英文windows环境下，返回的是”Sunday”,”Monday”……[范例]：P=WeekdayName(1)结果为：P=”星期日”

为什么不用VB自带的StrRevserse()函数呢？Visual Basic Scripting Edition 语言参考 -------------------------------------------------------------------StrReverse 函数返回字符串，此字符串与指定字符串顺序相反。StrReverse(string1)string1 参数是要进行字符反向的字符串。如果 string1 是零长度字符串 (““)，则返回零长度字符串。如果 string1 为 Null，则会出现错误。说明下面的示例利用 StrReverse 函数返回按相反顺序排列的字符串：Dim MyStrMyStr = StrReverse(“VBScript“) ’MyStr 包含 “tpircSBV“。